perm filename SCM[NEW,LCS] blob sn#145095 filedate 1975-02-12 generic text, type T, neo UTF8

	1) SCMX.F4 vs. 2) SCMSS.F4[MSS,LCS]	SRCCOM	02-12-75	16:41	PAGES 1,1

******** SCMX.F4 **** PAGE 1  LINE 3
1)	00300		COMMON R2,JA,QX(42) /SCM/V(78),I,LCNT,STAFF,JLIST(200),REND
1)	00350	C JLIST WILL SOMETIMES BE USED(WIPED OUT) FOR R(X,Y) OVERFLOW(>50 ITEMS.)
*** SCMSS.F4[MSS,LCS] *** PAGE 1  LINE 3
2)	00300		COMMON RJB,JA,QX(42) /SCM/V(78),I,LCNT,STAFF,JLIST(200),REND
2)	00350	C JLIST WILL SOMETIMES BE USED(WIPED OUT) FOR R(X,Y) OVERFLOW(>50 ITEMS.)


******** SCMX.F4 **** PAGE 1  LINE 77
1)	07300	C   ADJUSTS NOTE STEMS, ETC.
*** SCMSS.F4[MSS,LCS] *** PAGE 1  LINE 77
2)	07000	CXX	IZ=IZ+1
2)	07100	CXX	R(1,IZ)=19.
2)	07200	CXX	R(2,IZ)=STAFF
2)	07300	C   ADJUSTS NOTE STEMS, ETC.


******** SCMX.F4 **** PAGE 1  LINE 186
1)	19720		XDBST=-1.
*** SCMSS.F4[MSS,LCS] *** PAGE 1  LINE 189
2)	19700	CC	DBST=-1.
2)	19720		XDBST=-1.


******** SCMX.F4 **** PAGE 1  LINE 191
1)	19900	C  FOR 'DOUBLE STOPS'
*** SCMSS.F4[MSS,LCS] *** PAGE 1  LINE 195
2)	19800	CC	GO TO 236
2)	19900	C  FOR 'DOUBLE STOPS'


******** SCMX.F4 **** PAGE 2  LINE 75
1)	16950		GO TO 67
*** SCMSS.F4[MSS,LCS] *** PAGE 2  LINE 75
2)	16800	CC	IF(IREAD.EQ.0)CALL NUMB
2)	16900	CC	GO TO 8006
2)	16950		GO TO 67